data intTree = intNode intTree intTree | intLeaft int 

sumTree::intTree->int
sumTree (intLeaft n)  = n
sumTree (intNode t tt) = (sumTree t) + (sumTree tt)

maint::int
maint = sumTree (intNode (intLeaft 2) (intLeaft 5))